Cestina a W2K
Otázka od: Jan Fiala [work]
12. 11. 2003 9:28
potreboval bych poradit. nevite, cim by mohl byt zpusoben problem pri
zobrazovani cestiny na W2K? Vkladam texty do RichEditu a ve vysledku to dela
paseku. Zakaznikovi se to stalo na W2K a tedka dokonce i WinXP, ale kdyz
jsem to zkousel ja na techto systemech, tak bylo vse v poradku. Dokonce jsem
i kontroloval Regionalni nastaveni Windows.
Odkaz na obrazek: http://www.kvasar.cz/pictures/cestinaw2k.jpg
nestalo se vam neco podobneho nebo nevite jak na to? Opravdu hodne by mi to
pomohlo.
Dekuji
Jan Fiala
Kvasar, spol. s r. o.
Kvitkova 3687/52
760 01 Zlin, P. O. BOX 141
Tel: 577212800
FAX: 577213339
E-mail: fiala@kvasar.cz
URL: http://www.kvasar.cz
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Ing. Pavel Spisar
12. 11. 2003 11:10
Mne se to take stava, nesmi byt aktivni anglicke rozlozeni klavesnice.
----- Original Message -----
From: "Jan Fiala [work]" <delphi@kvasar.cz>
To: <delphi-l@clexpert.cz>
Sent: Wednesday, November 12, 2003 9:26 AM
Subject: Cestina a W2K
> potreboval bych poradit. nevite, cim by mohl byt zpusoben problem pri
> zobrazovani cestiny na W2K? Vkladam texty do RichEditu a ve vysledku to dela
> paseku. Zakaznikovi se to stalo na W2K a tedka dokonce i WinXP, ale kdyz
> jsem to zkousel ja na techto systemech, tak bylo vse v poradku. Dokonce jsem
> i kontroloval Regionalni nastaveni Windows.
>
> Odkaz na obrazek: http://www.kvasar.cz/pictures/cestinaw2k.jpg
>
> nestalo se vam neco podobneho nebo nevite jak na to? Opravdu hodne by mi to
> pomohlo.
>
> Dekuji
> Jan Fiala
>
> Kvasar, spol. s r. o.
> Kvitkova 3687/52
> 760 01 Zlin, P. O. BOX 141
>
> Tel: 577212800
> FAX: 577213339
> E-mail: fiala@kvasar.cz
> URL: http://www.kvasar.cz
>
>
>
>
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: ludek.paral@quick.cz
12. 11. 2003 11:11
Ahoj,
ja jsem mel s Richedit take problemy, tak jsem presel na RxRichedit (jsou to
komponenty Rx)
Ludek
----- Puvodni zprava -----
Od: "Jan Fiala [work]" <delphi@kvasar.cz>
Datum: streda, 12. listopadu 2003 v 9:26 dop
Predmet: Cestina a W2K
> potreboval bych poradit. nevite, cim by mohl
> byt zpusoben problem pri
> zobrazovani cestiny na W2K? Vkladam texty do
> RichEditu a ve vysledku to dela
> paseku. Zakaznikovi se to stalo na W2K a
> tedka dokonce i WinXP, ale kdyz
> jsem to zkousel ja na techto systemech, tak
> bylo vse v poradku. Dokonce jsem
> i kontroloval Regionalni nastaveni Windows.
>
> Odkaz na obrazek:
> http://www.kvasar.cz/pictures/cestinaw2k.jpg
> nestalo se vam neco podobneho nebo nevite
> jak na to? Opravdu hodne by mi to
> pomohlo.
>
> Dekuji
> Jan Fiala
>
> Kvasar, spol. s r. o.
> Kvitkova 3687/52
> 760 01 Zlin, P. O. BOX 141
>
> Tel: 577212800
> FAX: 577213339
> E-mail: fiala@kvasar.cz
> URL: http://www.kvasar.cz
>
>
>
>
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Jiri Foldyna
12. 11. 2003 11:41
> potreboval bych poradit. nevite, cim by mohl byt zpusoben problem pri
> zobrazovani cestiny na W2K? Vkladam texty do RichEditu a ve
> vysledku to dela
> paseku. Zakaznikovi se to stalo na W2K a tedka dokonce i
> WinXP, ale kdyz
> jsem to zkousel ja na techto systemech, tak bylo vse v
> poradku. Dokonce jsem
> i kontroloval Regionalni nastaveni Windows.
Ahoj,
nevim jiste, jestli ti to pomuze, ale resil jsem podobny problem - pri
pokusu o vlozeni znaku do Richeditu se menil charset. Vyresil jsem to pomoci
vypnuti notifikace takto (neni to size buhvijak konzistentni, ale funguje to
:
var
Mask : LongInt;
procedure StopChangeNotify(Handle : Hwnd);
begin
Mask := SendMessage(Handle, EM_GETEVENTMASK, 0, 0);
SendMessage(Handle, EM_SETEVENTMASK, 0,
Mask and (not (ENM_CHANGE)) and (not (ENM_SELCHANGE)) and (not
(ENM_UPDATE)));
end;
procedure RestoreNotify(RE : TRichEdit);
begin
SendMessage(RE.Handle, EM_SETEVENTMASK, 0, Mask);
if Assigned(RE.OnChange) then
begin
RE.OnChange(RE);
end;
if Assigned(RE.OnSelectionChange) then
begin
RE.OnSelectionChange(RE);
end;
end;
//Fn=fontname
//FS=fontsize
procedure InsStrToRTF(Fn : string; FCh : TFontCharset; FSt : TFontStyles;
FS : integer; IStr : string; RE : TRichEdit);
var
FontN : string;
FontCh : TFontCharset;
Fonts : integer;
FontSt : TFontStyles;
ss : integer;
i : integer;
begin
StopChangeNotify(RE.Handle);
FontN := RE.SelAttributes.Name;
FontCh := RE.SelAttributes.Charset;
FontSt := RE.SelAttributes.Style;
Fonts := RE.SelAttributes.Size;
ss := RE.SelStart;
for i := 1 to Length(IStr) do
begin
SendMessage(RE.Handle, WM_CHAR, word(IStr[i]), 0);
end;
RE.SelStart := ss;
RE.SelLength := Length(IStr);
RE.SelAttributes.Name := Fn;
RE.SelAttributes.Charset := FCh;
RE.SelAttributes.Style := FSt;
RE.SelAttributes.Size := FS;
RE.SelStart := ss + Length(IStr);
RE.SelLength := 0;
RE.SelAttributes.Name := FontN;
RE.SelAttributes.Charset := FontCh;
RE.SelAttributes.Style := FontSt;
RE.SelAttributes.Size := Fonts;
RestoreNotify(RE);
end;
Jiri Foldyna
mailto:jiri.f@avizo.cz
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Jan Fiala [work]
13. 11. 2003 13:53
Diky moc, tohle opravdu pomohlo.
RxRichEdit, prepinani klavesnice, menit jazykove nastaveni nepomahalo.
-----Original Message-----
From: delphi-l-owner@clexpert.cz [mailto:delphi-l-owner@clexpert.cz]On
Behalf Of Jiri Foldyna
Sent: Wednesday, November 12, 2003 11:11 AM
To: delphi-l@clexpert.cz
Subject: Re: Cestina a W2K
> potreboval bych poradit. nevite, cim by mohl byt zpusoben problem pri
> zobrazovani cestiny na W2K? Vkladam texty do RichEditu a ve
> vysledku to dela
> paseku. Zakaznikovi se to stalo na W2K a tedka dokonce i
> WinXP, ale kdyz
> jsem to zkousel ja na techto systemech, tak bylo vse v
> poradku. Dokonce jsem
> i kontroloval Regionalni nastaveni Windows.
Ahoj,
nevim jiste, jestli ti to pomuze, ale resil jsem podobny problem - pri
pokusu o vlozeni znaku do Richeditu se menil charset. Vyresil jsem to pomoci
vypnuti notifikace takto (neni to size buhvijak konzistentni, ale funguje to
:
var
Mask : LongInt;
procedure StopChangeNotify(Handle : Hwnd);
begin
Mask := SendMessage(Handle, EM_GETEVENTMASK, 0, 0);
SendMessage(Handle, EM_SETEVENTMASK, 0,
Mask and (not (ENM_CHANGE)) and (not (ENM_SELCHANGE)) and (not
(ENM_UPDATE)));
end;
procedure RestoreNotify(RE : TRichEdit);
begin
SendMessage(RE.Handle, EM_SETEVENTMASK, 0, Mask);
if Assigned(RE.OnChange) then
begin
RE.OnChange(RE);
end;
if Assigned(RE.OnSelectionChange) then
begin
RE.OnSelectionChange(RE);
end;
end;
//Fn=fontname
//FS=fontsize
procedure InsStrToRTF(Fn : string; FCh : TFontCharset; FSt : TFontStyles;
FS : integer; IStr : string; RE : TRichEdit);
var
FontN : string;
FontCh : TFontCharset;
Fonts : integer;
FontSt : TFontStyles;
ss : integer;
i : integer;
begin
StopChangeNotify(RE.Handle);
FontN := RE.SelAttributes.Name;
FontCh := RE.SelAttributes.Charset;
FontSt := RE.SelAttributes.Style;
Fonts := RE.SelAttributes.Size;
ss := RE.SelStart;
for i := 1 to Length(IStr) do
begin
SendMessage(RE.Handle, WM_CHAR, word(IStr[i]), 0);
end;
RE.SelStart := ss;
RE.SelLength := Length(IStr);
RE.SelAttributes.Name := Fn;
RE.SelAttributes.Charset := FCh;
RE.SelAttributes.Style := FSt;
RE.SelAttributes.Size := FS;
RE.SelStart := ss + Length(IStr);
RE.SelLength := 0;
RE.SelAttributes.Name := FontN;
RE.SelAttributes.Charset := FontCh;
RE.SelAttributes.Style := FontSt;
RE.SelAttributes.Size := Fonts;
RestoreNotify(RE);
end;
Jiri Foldyna
mailto:jiri.f@avizo.cz
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: js-delphi@quick.cz
13. 11. 2003 14:08
>From: Jan Fiala [work] [delphi@kvasar.cz]
>RxRichEdit, prepinani klavesnice, menit jazykove nastaveni nepomahalo.
Ahoj!
Je mi jasne, ze "jdu s krizkem po funuse", ale ja tady pred casem hodil mail
jak to resim ja. Jestli je to lepsi nebo horsi nez reseni Jirky Foldyny neumim
posoudit.
Na RichEditu sleduju udalost OnChange a pak delam toto (pokud tam bude spatny
syntax tak sorry, pisu to z patra):
procedure TForm1.RichEdit1OnChange(Sender:TObject);
var
puvFontCharSet: TFontCharset;
begin
puvFontCharSet:=(Sender as TRichEdit).Font.Charset;
(Sender as TRichEdit).Font.Charset:=DEFAULT_CHARSET;
(Sender as TRichEdit).Font.Charset:=puvFontCharSet;
end;
Funguje to zatim spolehlive.
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol@seznam.cz; 972 231 187
D6Prof+SP2; WinXPProf+SP1
programator amater
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)